BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Ap-Az/AudioVideoLib1.15.cpt/AudioVideo Library/background_3312.txt

Text File | 1991-03-04 | 43KB | 1,802 lines

-- background: 3312 from stack: in
-- bmap block id: 3769
-- flags: 4000
-- background id: 0
-- name: Tape
----- HyperTalk script -----
on doPasteWhere
  global sourcecopy,Bselcopy
  answer "Paste may write over existing information" with "cancel" or "continue"
  if it is "cancel" then exit doPasteWhere
  put sourcecopy into field "RecSource"
  if Bselcopy is not empty then
    if the hilite of bkgnd button "Vol I" is true then doBothI
    if the hilite of bkgnd button "Vol II" is true then doBothII
    if the hilite of bkgnd button "Vol III" is true then doBothIII
    click at location of bkgnd button "a-b"
  else
    answer "Paste to which?" with "Side A" or "Side B"
    if it is "Side B" then
      if the hilite of bkgnd button "Vol I" is true then doPasteToIB
      if the hilite of bkgnd button "Vol II" is true then doPasteToIIB
      if the hilite of bkgnd button "Vol III" is true then doPasteToIIIB
    end if
    if it is "Side A" then
      if the hilite of bkgnd button "Vol I" is true then doPasteToIA
      if the hilite of bkgnd button "Vol II" is true then doPasteToIIA
      if the hilite of bkgnd button "Vol III" is true then doPasteToIIIA
    end if
  end if
end doPasteWhere

on doPasteToIA
  global artistcopy,titlecopy,selcopy,perfcopy
  put artistcopy into field "artist"
  put titlecopy into field "title"
  put selcopy into field "IA"
  put perfcopy into field "IAperf"
end doPasteToIA

on doPasteToIIA
  global artistcopy,titlecopy,selcopy,perfcopy
  put artistcopy into field "IIAartist"
  put titlecopy into field "IIAtitle"
  put selcopy into field "IIA"
  put perfcopy into field "IIAperf"
end doPasteToIIA

on doPasteToIIIA
  global artistcopy,titlecopy,selcopy,perfcopy
  put artistcopy into field "IIIAartist"
  put titlecopy into field "IIIAtitle"
  put selcopy into field "IIIA"
  put perfcopy into field "IIIAperf"
end doPasteToIIIA

on doPasteToIB
  global artistcopy,titlecopy,selcopy,perfcopy
  put artistcopy into field "IBartist"
  put titlecopy into field "IBtitle"
  put selcopy into field "IB"
  put perfcopy into field "IBperf"
end doPasteToIB

on doPasteToIIB
  global artistcopy,titlecopy,selcopy,perfcopy
  put artistcopy into field "IIBartist"
  put titlecopy into field "IIBtitle"
  put selcopy into field "IIB"
  put perfcopy into field "IIBperf"
end doPasteToIIB

on doPasteToIIIB
  global artistcopy,titlecopy,selcopy,perfcopy
  put artistcopy into field "IIIBartist"
  put titlecopy into field "IIIBtitle"
  put selcopy into field "IIIB"
  put perfcopy into field "IIIBperf"
end doPasteToIIIB

on doToLabel
  answer "Go to or transfer visible volume to labeler?" with "cancel" or "go to" or "transfer"
  if it is "cancel" then exit doToLabel
  if it is "go to"
  then go to card "labeler" of stack "AudioVideoUtilities"
else
  lock screen
  put empty into quivalent
  put first word of line 1 of field "recording label" into tapebrand
  if tapebrand is "General" then put "GE" into tapebrand
  put field "length" into tapelength
  put field "catalog number" into catalog
  answer "Port to label with :" with "title only" or "artist / title" or "artist: title"
  put it into Reply
  if Reply is not "title only" then
    answer "Entire names of artists or last names only?" with "entire" or "last name"
    put it into whichname
  end if
  if the hilite of bkgnd button "Vol I" is true then
    if field "artist" is field "IBartist" and field "title" is field "IBtitle" then put 1 into quivalent
    if Reply is "artist: title" then
      if whichname is "last name" then
        put last word of first line of field "artist" & ": " & field "title" into Atitle
        put last word of first line of field "IBartist" & ": " & field "IBtitle" into Btitle
      else
        put field "artist" & ":" && field "title" into Atitle
        put field "IBartist" & ":" && field "IBtitle" into Btitle
      end if
    end if
    if Reply is "artist / title" then
      if whichname is "last name"
      then put last word of field "artist" into Atitle
    else put field "artist" into Atitle
    put field "title" into Btitle
  end if
  if Reply is "title only" then
    put field "title" into Atitle
    put field "IBtitle" into Btitle
  end if
  put field "artist" into Aartistcopy
  put field "IBartist" into Bartistcopy
  put field "IA" into Aselcopy
  put field "IB" into Bselcopy
  put field "noiseReduction" into NoiseReduct
end if
if the hilite of bkgnd button "Vol II" is true then
  if field "IIAartist" is field "IIBartist" and field "IIAtitle" is field "IIBtitle" then put 1 into quivalent
  if Reply is not "artist: title" then
    if whichname is "last name" then
      put last word of first line of field "IIAartist" & ": " & field "IIAtitle" into Atitle
      put last word of first line of field "IIBartist" & ": " & field "IIBtitle" into Btitle
    else
      put field "IIAartist" & ":" && field "IIAtitle" into Atitle
      put field "IIBartist" & ":" && field "IIBtitle" into Btitle
    end if
    if Reply is "artist / title" then
      if whichname is "last name"
      then put last word of field "IIAartist" into Atitle
    else put field "IIAartist" into Atitle
    put field "IIAtitle" into Btitle
  end if
end if
if Reply is "title only" then
  put field "IIAtitle" into Atitle
  put field "IIBtitle" into Btitle
end if
put field "IIAartist" into Aartistcopy
put field "IIBartist" into Bartistcopy
put field "IIA" into Aselcopy
put field "IIB" into Bselcopy
put field "noiseReduction" into NoiseReduct
end if
if the hilite of bkgnd button "Vol III" is true then
  if field "IIIAartist" is field "IIIBartist" and field "IIIAtitle" is field "IIIBtitle" then put 1 into quivalent
  if Reply is not "artist: title" then
    if whichname is "last name" then
      put last word of first line of field "IIIAartist" & ": " & field "IIIAtitle" into Atitle
      put last word of first line of field "IIIBartist" & ": " & field "IIIBtitle" into Btitle
    else
      put field "IIIAartist" & ":" && field "IIIAtitle" into Atitle
      put field "IIIBartist" & ":" && field "IIIBtitle" into Btitle
    end if
    if Reply is "artist / title" then
      if whichname is "last name"
      then put last word of field "IIIAartist" into Atitle
    else put field "IIIAartist" into Atitle
    put field "IIIAtitle" into Btitle
  end if
end if
if Reply is "title only" then
  put field "IIIAtitle" into Atitle
  put field "IIIBtitle" into Btitle
end if
put field "IIIAartist" into Aartistcopy
put field "IIIBartist" into Bartistcopy
put field "IIIAsel" into Aselcopy
put field "IIIBsel" into Bselcopy
put field "noiseReduction" into NoiseReduct
end if
if quivalent is 1 and Reply is not "artist / title"
then answer "Do you wish Title to be single large area?" with "No" or "Yes"
go to card "labeler" of stack "AudioVideoUtilities"
click at location of button "clear"
if it is "Yes" then click at location of cd button 13
else click at location of cd button 14
put Atitle into field "title"
put Atitle into field "Atitle"
put Btitle into field "Btitle"
put Aartistcopy into line 1 of field "A1"
put Bartistcopy into line 1 of field "B1"
put Aselcopy into line 2 of field "A1"
put Bselcopy into line 2 of field "B1"
put NoiseReduct into field "noiseReduction"
put tapelength into field "tape length"
put tapebrand into field "tape brand"
put catalog into field "catalog number"
unlock screen
end if
end doToLabel

on doBothI
  global artistcopy,titlecopy,perfcopy,selcopy,Bselcopy
  put artistcopy into field "artist"
  put titlecopy into field "title"
  put perfcopy into field "IAperf"
  put selcopy into field "IA"
  put Bselcopy into field "IB"
end doBothI

on doBothII
  global artistcopy,titlecopy,perfcopy,selcopy,Bselcopy
  put artistcopy into field "IIAartist"
  put titlecopy into field "IIAtitle"
  put perfcopy into field "IIAperf"
  put selcopy into field "IIA"
  put Bselcopy into field "IIB"
end doBothII

on doBothIII
  global artistcopy,titlecopy,perfcopy,selcopy,Bselcopy
  put artistcopy into field "IIIAartist"
  put titlecopy into field "IIIAtitle"
  put perfcopy into field "IIIAperf"
  put selcopy into field "IIIA"
  put Bselcopy into field "IIIB"
end doBothIII

on doCopyTAPE
  answer "Copy visible volume to another volume?" with "Cancel" or "OK"
  if it is "Cancel" then exit doCopyTape
  if the hilite of bkgnd button "Vol I" is true then copy1
  if the hilite of bkgnd button "Vol II" is true then copy2
  if the hilite of bkgnd button "Vol III" is true then copy3
  answer "Copy to which volume(s)?" with "vol II" or "vol III" or "vols II&III"
  put it into reply
  if reply is "vol II" then
    doPasteToIIA
    BAswap
    doPasteToIIB
  end if
  if reply is "vol III" then
    doPasteToIIIA
    BAswap
    doPasteToIIIB
  end if
  if reply is "vols II&III" then
    doPasteToIIA
    doPasteToIIB
    BAswap
    doPasteToIIIA
    doPasteToIIIB
  end if
end doCopyTAPE


on copy1
  global artistcopy,titlecopy,perfcopy
  global Bartistcopy,Btitlecopy,Bperfcopy
  put bkgnd field "artist" into artistcopy
  put bkgnd field "title" into titlecopy
  put bkgnd field "IAperf" into perfcopy
  put bkgnd field "IBartist" into Bartistcopy
  put bkgnd field "IBtitle" into Btitlecopy
  put bkgnd field "IBperf" into Bperfcopy
end copy1

on copy2
  global artistcopy,titlecopy,perfcopy
  global Bartistcopy,Btitlecopy,Bperfcopy
  put bkgnd field "IIAartist" into artistcopy
  put bkgnd field "IIAtitle" into titlecopy
  put bkgnd field "IIAperf" into perfcopy
  put bkgnd field "IIBartist" into Bartistcopy
  put bkgnd field "IIBtitle" into Btitlecopy
  put bkgnd field "IIBperf" into Bperfcopy
end copy2

on copy3
  global artistcopy,titlecopy,perfcopy
  global Bartistcopy,Btitlecopy,Bperfcopy
  put bkgnd field "IIIAartist" into artistcopy
  put bkgnd field "IIIAtitle" into titlecopy
  put bkgnd field "IIIAperf" into perfcopy
  put bkgnd field "IIIBartist" into Bartistcopy
  put bkgnd field "IIIBtitle" into Btitlecopy
  put bkgnd field "IIIBperf" into Bperfcopy
end copy3

on BAswap
  global artistcopy,titlecopy,perfcopy
  global Bartistcopy,Btitlecopy,Bperfcopy
  put Bartistcopy into artistcopy
  put Btitlecopy into titlecopy
  put Bperfcopy into perfcopy
end BAswap




-- part 10 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=137 top=96 right=108 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vol I
----- HyperTalk script -----
on mouseUp
  setTape1
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=187 top=96 right=108 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vol II
----- HyperTalk script -----
on mouseUp
  setTape2
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=241 top=96 right=108 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vol III
----- HyperTalk script -----
on mouseUp
  set the hilite of bkgnd button "Vol III" to false
  if bkgnd field "numVol" contains "3" then
    if the hilite of bkgnd button "Vol III" is false then
      set the hilite of bkgnd button "Vol III" to true
      set the hilite of bkgnd button "Vol I" to false
      set the hilite of bkgnd button "Vol II" to false
      hide bkgnd field "IA"
      hide bkgnd field "artist"
      hide bkgnd field "title"
      hide bkgnd field "IAperf"
      hide bkgnd field "IB"
      hide bkgnd field "IBartist"
      hide bkgnd field "IBtitle"
      hide bkgnd field "IBperf"
      hide bkgnd field "IIA"
      hide bkgnd field "IIAartist"
      hide bkgnd field "IIAtitle"
      hide bkgnd field "IIAperf"
      hide bkgnd field "IIB"
      hide bkgnd field "IIBartist"
      hide bkgnd field "IIBtitle"
      hide bkgnd field "IIBperf"
      show bkgnd field "IIIA"
      show bkgnd field "IIIAartist"
      show bkgnd field "IIIAtitle"
      show bkgnd field "IIIAperf"
      show bkgnd field "IIIB"
      show bkgnd field "IIIBartist"
      show bkgnd field "IIIBtitle"
      show bkgnd field "IIIBperf"
    end if
  end if
end mouseUp



-- part 20 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=195 top=110 right=125 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: content class
----- HyperTalk script -----
on mouseDown
  doContentClass
end mouseDown



-- part 21 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=184 top=128 right=143 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: format
----- HyperTalk script -----
on mouseDown
  put "Tape Norm Bias TypeI 120µs Cassette;" & "Tape High Bias TypeII 70µs Cassette;" & "Tape High Bias TypeIV 70µs Cassette;" & "Tape - Open Reel;Tape - Digital Audio" into choices

  put the value of 1 into lastItem
  get topLeft of target

  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "format"
  end if
end mouseDown



-- part 22 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=172 top=164 right=179 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name: length
----- HyperTalk script -----
on mouseDown
  put "30 min;45 min;60 min;75 min;80 min;90 min;" & "100 min;110 min;120 min;1200 ft;1800 ft;" & "2500 ft;3600 ft"into choices

  put the value of 1 into lastItem
  get topLeft of target

  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "length"
  end if
end mouseDown



-- part 23 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=0 top=71 right=282 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: IA


-- part 24 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=0 top=71 right=282 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: IIA


-- part 25 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=0 top=71 right=282 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: IIIA


-- part 26 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=378 top=71 right=282 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: IB


-- part 27 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=378 top=71 right=283 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: IIB


-- part 28 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=378 top=71 right=282 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: IIIB


-- part 29 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=351 top=79 right=94 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: numVol
----- HyperTalk script -----
on mouseDown
  put "1;2;3" into choices

  put the value of 1 into lastItem
  get topLeft of target

  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "numVol"
    if bkgnd fld "numVol" contains "1" then
      setTape1
    end if
    if bkgnd fld "numVol" contains "2" then
      if the hilite of bkgnd button "Vol III" is true then
        setTape3
      end if
    end if
  end if
end mouseDown



-- part 34 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=275 top=16 right=31 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IIIBtitle
----- HyperTalk script -----
on returnInField
  click at 295,41
end returnInField



-- part 35 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=0 top=16 right=31 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IIIAtitle
----- HyperTalk script -----
on returnInField
  click at 2,41
end returnInField



-- part 36 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=0 right=15 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: artist
----- HyperTalk script -----
on returnInField
  click at location of field "title"
end returnInField



-- part 37 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=313 top=0 right=15 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: IIIBartist
----- HyperTalk script -----
on returnInField
  click at location of field "IIIBtitle"
end returnInField


-- part 38 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=271 top=164 right=179 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: RecSource
----- HyperTalk script -----
on mouseDown
  put "Live Recording;Commercial Tape;Project Master;" & "Compact Disc;Vinyl Record;Cassette Tape;Open Reel;" & "Digital Audio Tape;Videotape;Laserdisc;Mixed Sources;Other" into choices

  put the value of 1 into lastItem
  get topLeft of target

  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "RecSource"
    if item 1 of it is "Other" then
      ask "Enter Recording Source"
      if it is not empty then
        put it into bkgnd field "RecSource"
      end if
    end if
  end if
end mouseDown


-- part 39 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=0 top=32 right=60 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IIIAperf


-- part 40 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=290 top=32 right=60 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IIIBperf


-- part 41 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=0 top=32 right=60 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IIAperf


-- part 42 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=32 right=60 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IAperf


-- part 43 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=290 top=32 right=60 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IIBperf


-- part 44 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=290 top=32 right=60 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IBperf


-- part 45 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=0 top=16 right=31 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IIAtitle
----- HyperTalk script -----
on returnInField
  click at 2,41
end returnInField



-- part 46 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=16 right=31 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: title
----- HyperTalk script -----
on returnInField
  click at 2,41
end returnInField



-- part 47 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=275 top=16 right=31 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IIBtitle
----- HyperTalk script -----
on returnInField
  click at 295,41
end returnInField



-- part 48 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=275 top=16 right=31 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: IBtitle
----- HyperTalk script -----
on returnInField
  click at 295,41
end returnInField



-- part 49 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=0 top=0 right=15 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: IIIAartist
----- HyperTalk script -----
on returnInField
  click at location of field "IIAtitle"
end returnInField



-- part 50 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=0 top=0 right=15 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: IIIAartist


-- part 53 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=215 top=79 right=94 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: catalog number


-- part 54 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=217 top=62 right=77 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: recording label
----- HyperTalk script -----
on mouseDown
  put "audio tape,BASF,Denon,DIC,Fuji,General Electric,JVC,Loran," & "Maxell,Memorex,Nakamichi,Realistic,Recoton,Sony,TDK,3M,;(-;" & "Other;(-;A,A&M,Archiv,Arista,Atlantic,;C,Capitol,Chandos,Chrysalis," & "Columbia,Concord,;D,Delos,Denon,Deutsche Grammophon,DRM,;E,ECM," & "Elektra,EMI-Angel,Epic,Erato,;G,Geffen,GRP,;H,Harmonia Mundi," & "Hyperion,;I,Intima-Enigma,Island,;L,L'Oiseau-Lyre,London,Legato,;" & "M,MCA,Motown,Muse,;N,New World,Newport Classics,;P,Philips," & "Pro Arte,;R,RCA,Rhino,;S,Sire,;T,Telarc,;V,Vanguard,Virgin,;W,Warner" into choices

  put the value of 1 into lastItem
  get topLeft of target

  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if item 1 of it is "Other" then
    ask "Enter Recording Label or Tape Brand"
    if it is not empty then
      put it into bkgnd field "recording label"
    end if
  end if
  if item 1 of it is "audio tape" and item 2 of it is not empty
  then put (item 2 of it && item 1 of it) into field "recording label"
else
  if item 1 of it is not "audio tape" and item 2 of it is not empty
  then put item 2 of it into field "recording label"
end if
end mouseDown


-- part 55 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=311 top=95 right=109 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Remarks
----- HyperTalk script -----
on mouseUp
  if the hilite of bkgnd button "Remarks" is false then
    show bkgnd field "remarks"
    set the hilite of bkgnd button "Remarks" to true
  else
    hide bkgnd field "remarks"
    set the hilite of bkgnd button "Remarks" to false
  end if
end mouseUp



-- part 57 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=216 top=146 right=161 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: noiseReduction
----- HyperTalk script -----
on mouseDown
  put "None;Dolby B;Dolby C;dbx;Dolby B with HXPro;" & "Dolby C with HXPro;Dolby S with HXPro;Other" into choices

  put the value of 1 into lastItem
  get topLeft of target

  get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))

  if the result is not empty then put the result

  if item 1 of it is not empty then
    put item 1 of it into bkgnd fld "noiseReduction"
    if item 1 of it is "Other" then
      ask "Enter Noise Reduction System"
      if it is not empty then
        put it into bkgnd field "noiseReduction"
      end if
    end if
  end if
end mouseDown


-- part 58 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=86 top=302 right=333 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CD
----- HyperTalk script -----
on mouseUp
  goCD
end mouseUp



-- part 60 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=302 right=333 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LPswitch
----- HyperTalk script -----
on mouseUp
  goLP
end mouseUp



-- part 61 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=231 top=302 right=333 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VIDEOswitch
----- HyperTalk script -----
on mouseUp
  goVideo
end mouseUp



-- part 62 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=183 top=302 right=333 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TAPEdummy
----- HyperTalk script -----
on mouseUp
  put the number of cards of this background into quant
  put ("AudioVideo Library currently contains " & quant & " sets of Tapes") into message box
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=318 top=290 right=305 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NewCard
----- HyperTalk script -----
on mouseUp
  setTape1
  visual effect scroll down
  doMenu New Card
  put "1" into bkgnd fld "numVol"
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=394 top=290 right=305 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play
----- HyperTalk script -----
on mouseUp
  doPlay
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=432 top=318 right=333 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SkipPrev
----- HyperTalk script -----
on mouseUp
  go to previous card of this background
end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=470 top=318 right=333 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SkipNext
----- HyperTalk script -----
on mouseUp
  go to next card of this background
end mouseUp



-- part 67 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=280 top=290 right=305 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
  doDelete
  go to prev card of background "TAPE"
end mouseUp



-- part 68 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=394 top=318 right=333 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ToMaster
----- HyperTalk script -----
on mouseUp
  doMenu first
end mouseUp



-- part 69 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=334 top=110 right=125 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: year
----- HyperTalk script -----
on mouseDown
  chooseYear
end mouseDown


-- part 70 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=470 top=290 right=305 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  doMenu Next
end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=432 top=290 right=305 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  doMenu Prev
end mouseUp



-- part 72 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=356 top=290 right=307 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Search
----- HyperTalk script -----
on mouseUp
  doSearch
end mouseUp



-- part 73 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=280 top=318 right=333 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PrintCard
----- HyperTalk script -----
on mouseUp
  doPrint
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=356 top=318 right=333 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  push card
  go to first card
  doSort
end mouseUp



-- part 88 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=313 top=0 right=15 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: IIBartist
----- HyperTalk script -----
on returnInField
  click at location of field "IIBtitle"
end returnInField



-- part 89 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=0 top=0 right=15 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: IIAartist
----- HyperTalk script -----
on returnInField
  click at location of field "IIAtitle"
end returnInField



-- part 90 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=318 top=318 right=333 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  go to card "TAPEhelp" of stack "AudioVideoUtilities"
end mouseUp



-- part 91 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=313 top=0 right=15 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: IBartist
----- HyperTalk script -----
on returnInField
  click at location of field "IBtitle"
end returnInField



-- part 97 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=248 right=278 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: a-b
----- HyperTalk script -----
on mouseUp
  if the hilite of bkgnd button "Vol I" is true then
    get field "artist"
    if it is not empty then
      put it into field "IBartist"
      get field "title"
      put it into field "IBtitle"
      get field "IAperf"
      put it into field "IBperf"
    else
      put field "IBartist" into field "artist"
      put field "IBtitle" into field "title"
      put field "IBperf" into field "IAperf"
    end if
  end if
  if the hilite of bkgnd button "Vol II" is true then
    get field "IIAartist"
    if it is not empty then
      put it into field "IIBartist"
      get field "IIAtitle"
      put it into field "IIBtitle"
      get field "IIAperf"
      put it into field "IIBperf"
    else
      put field "IIBartist" into field "IIAartist"
      put field "IIBtitle" into field "IIAtitle"
      put field "IIBperf" into field "IIAperf"
    end if
  end if
  if the hilite of bkgnd button "Vol III" is true then
    get field "IIIAartist"
    if it is not empty then
      put it into field "IIIBartist"
      get field "IIIAtitle"
      put it into field "IIIBtitle"
      get field "IIIAperf"
      put it into field "IIIBperf"
    else
      put field "IIIBartist" into field "IIIAartist"
      put field "IIIBtitle" into field "IIIAtitle"
      put field "IIIBperf" into field "IIIAperf"
    end if
  end if
end mouseUp



-- part 98 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=194 top=248 right=280 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: paste
----- HyperTalk script -----
on mouseUp
  doPasteWhere
end mouseUp



-- part 99 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=317 top=248 right=280 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ->label
----- HyperTalk script -----
on mouseUp
  doToLabel
end mouseUp



-- part 101 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=6 top=302 right=334 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Power
----- HyperTalk script -----
on mouseUp
  doPower
end mouseUp



-- part 104 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=256 top=250 right=279 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 10496
-- line height: 13
-- part name: copy
----- HyperTalk script -----
on mouseUp
  doCopyTAPE
end mouseUp



-- part 102 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=9 top=253 right=341 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: remarks


-- part 105 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=62 right=77 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rec label activate
----- HyperTalk script -----
on mouseDown
  send mouseDown to field "recording label"
end mouseDown



-- part 106 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=278 top=79 right=94 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: num vol activate
----- HyperTalk script -----
on mouseDown
  send mouseDown to field "numVol"
end mouseDown



-- part 107 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=110 right=125 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: content class activate
----- HyperTalk script -----
on mouseDown
  send mouseDown to field "content class"
end mouseDown



-- part 108 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=316 top=110 right=125 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: year activate
----- HyperTalk script -----
on mouseDown
  send mouseDown to field "year"
end mouseDown



-- part 109 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=128 right=143 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tape type activate
----- HyperTalk script -----
on mouseDown
  send mouseDown to field "format"
end mouseDown



-- part 110 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=146 right=161 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: noise reduction activate
----- HyperTalk script -----
on mouseDown
  send mouseDown to field "noiseReduction"
end mouseDown



-- part 111 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=135 top=164 right=179 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: length activate
----- HyperTalk script -----
on mouseDown
  send mouseDown to field "length"
end mouseDown



-- part 112 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=232 top=164 right=179 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: source activate
----- HyperTalk script -----
on mouseDown
  send mouseDown to field "recSource"
end mouseDown



-- part 113 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=198 top=0 right=16 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: artist user entry
----- HyperTalk script -----
on mouseDown
  fieldMsg
end mouseDown



-- part 114 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=59 right=71 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: user entry
----- HyperTalk script -----
on mouseDown
  fieldMsg
end mouseDown



-- part 115 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=378 top=60 right=72 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: user entry
----- HyperTalk script -----
on mouseDown
  fieldMsg
end mouseDown



-- part 116 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=221 top=30 right=63 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: user entry
----- HyperTalk script -----
on mouseDown
  fieldMsg
end mouseDown



-- part 117 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=236 top=15 right=29 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: user entry
----- HyperTalk script -----
on mouseDown
  fieldMsg
end mouseDown



-- part 118 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=135 top=80 right=94 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: user entry
----- HyperTalk script -----
on mouseDown
  fieldMsg
end mouseDown